home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr25
/
rxcalc.zip
/
MEMCLEAR.CAL
< prev
next >
Wrap
Text File
|
1993-03-01
|
664b
|
13 lines
/* Rexx Calculator Memory Clear Key */
parse arg memory /* get the count of memories */
numeric digits CalcPrecision() /* set current precision */
numeric form value CalcForm() /* set current form */
if \datatype(memory, 'Whole') /* must be whole number */
then return 'Error' /* return error indicator */
if memory < 1 | memory >50 /* valid for counter */
then return 'Error' /* return error indicator */
'SET' trunc(memory) '0' /* store new value */